home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / dctutor.zip / DCTUTOR.DBF (.txt) < prev    next >
dBase/FoxBase/XBase Database File  |  1990-11-28  |  131KB  |  362 rows
#CMD_FUNCT,C,1EXECUTE,C,44MEMO,MCOMMAND,C,35SEQUENCE,C,2PAGE,C,9USE_RCRD,N,4,0
1A      
2A      
3A      
4A      
5A      
6Cset proc to rm,memoedit(memoread('read.me')) wait   
7Cset batch to demo,demo;   demo     
8Cclear;   close all;   use baseball;   declar count()];      AFIELDS(FIELDS);field_name=0
9CA=10;   B=20;   C=A*B;   D=SQRT(C);    ? a,b ait   
10C? 'Hello World';    wait     
11Ca=1;   clear;   set mess to 15;    set echo t cons off;    @ 10,1 PROM 'Menu 1' MESS 'Do m0
12Cset echo off;   set cons off;   clear;   num ,12 SAY 'ENTER A NUMBER FROM 25-60'GET NUM P0
13Cclear;    @ 10,10 TO 15,20;     @ 9,30 TO 14 ;   wait   
14Cclear;   ACCEPT 'Enter a string ' TO string; g;   wait   
15Cclose all;   use baseball;   copy to junk; ;   APPEND   
16Cclose all;   use baseball;   copy to junk;    ? reccount();   APPEND BLANK;APPEND BLAN0
17Cclose all;   use baseball;   copy stru to ju junk;          APPEND FROM BASEBALL FOR LEAGUE0
18Cclose all;  use sales;  AVERAGE EXPENSES TO FOR YEAR='1986';  ?_expenses;   wait  
19CBATCH DEMO     
20CCHR     
21Ccurdir=dc_curpath();  CD.. ;   wait;   CD DC ait   
22CCLEAR;   wait;   a='this is a get (press ent 10,10 get a;   wait;   CLEAR SCREEN;  READ 
23CKEYBOARD ' this is a test';   CLEAR TYPEAHEA     
24CCLEAR;   a='get 1';   b='get 2';   set cons 0,10 get a;    @ 11,10 get b;   CLEAR GETS;0
25CCLOSE ALL;   use baseball index player;   ? dexkey(0);      wait;   CLOSE INDEX;  ? alias0
26CCOLOR;   wait     
27CCOLOR SETUP;   wait     
28Cclose all;   use baseball;   copy stru to ju junk;          append blank;   dirjunk.dbf;0
29Cclose all;   use baseball;   locate for posi                ?player,team,position;   wait;0
30Cclose all;   use baseball;   COPY TO JUNK FO ='1B';         use junk;   list player,team,po0
31Cdir read*.*;   wait;   COPY FILE READ.ME TO   dir read*.*;  wait;   erase readme.2 
32Cclose all;   use baseball;   COPY STRUCTURE  use junk;       display structure   
33Cclose all;   use baseball;   COPY STRUCTURE O JUNK;         use junk;   list; wait 
34Cclose all;   use baseball;   COUNT FOR POSIT AND. LEAGUE='NL' TO NL1B;   ? nl1b;  wait 
35Cclose all;   CREATE JUNK;   display structur     
36Cclose all;   use baseball;   copy stru exte  use junk;     list;   close;   wait;   CREATE0
37Cclear;   DECLARE ELEMENTS[5];   elements[1]=                elements[2]=date(); elements[3
38Cclose all;   use baseball;   copy to junk;                DELETE FOR POSITION='1B';   lis0
39Cclear;   DIR;   wait;   clear;   DIR DC*.*;     
40Cclose all;   use baseball;                DISPLAY NEXT 10 TEAM,PLAYER,POS0
41Cclear;   DISPLAY ARRAY _D_C_COLOR;   myarray ,4,5);   DISPLAY ARRAY MYARRAY;   DISPLAY ARRA0
42Cclear;   string='this is string';   number=1  date=DATE();   logical=.t.;   screen=SAVESCRE0
43Cclear;   string='this is string';   number=1  date=DATE();   logical=.t.;   screen=savescre0
44Cclose all;   key load;   set batch to demo,d  proc to br,DC_BROWSE();   use baseball index0
45Cclose all;   use baseball;   DISPLAY STRUCTU     
46Cclose all;   use baseball;   copy to junk;    EDIT   
47CEDIT FILE READ.ME;   EDIT READ.ME;   EDIT RE     
48Cclos all;   use baseball;   copy structure e  temp;         use temp;   append blank;   rep0
49CEJECT     
50Ccopy file baseball.dbf to junk.dbf;   dir ju wait;          ERASE FILE JUNK.DBF;  dir junk0
51Cclose all;   use baseball index player;   FI                 ? team,player,position;   wait 
52Cclose all;   use baseball;   GOTO 10;                ? recno(),team,player,position;0
53Cclose all;   use baseball;   INDEX ON POSITI TION;           set index to position;   list0
54CINKEY     
55Cclos all;   use baseball;   copy to junk;   goto 5;      INSERT 3;   repl player with 'I0
56Cclear;   INPUT 'ENTER A NUMBER ' TO NUMBER; ;   wait   
57Cclose all;   use baseball;   sele 0;   use s                JOIN WITH BASEBALL TOJUNK FOR0
58Cclear;   string=space(30);   set typeahead t t echo off;    KEYBOARD '   Hello from the tut0
59Cclose all;   clear;   use baseball;   LABEL ALL;   wait   
60Cclose all;   use baseball;                LIST TEAM,PLAYER,POSITION FOR L0
61Cclose all;   use sales;   LIST STRUCTURE     
62Cclose all;   use baseball;                LOCATE FOR PRES_VALUE>1.50 .AND0
63Cset message to 15;   set cons off;   clear;  10,10 prom 'Menu 1' mess 'Do menu1';   @ 11,10
64CMODIFY COMMAND DEMO.PRG     
65Cclose all;   use baseball;   copy to junk;                MODIFY STRUCTURE;display str0
66Cclose all;   use baseball;   copy to junk;    ? reccount();   dele for position='1B';   P0
67Cproc clear;   PROC DEMO;   set step on;   do ROC CALC;      set step on;   do demo  
68CPROC CLEAR;   proc demo;   proc calc;   proc proc grsubtot;   proc;   wait;   ; ;      PR0
69Cclose all;   use baseball;   QUERY MY_QUERY;                my_query=iif(empty(my_query),'.0
70Cstore space(15) to get1,get2,get3;   set ech et cons off;   clear;   @ 10,10 say 'This is g0
71Cclose all;   use baseball;   copy to junk;    delete for league='NL';   countfor deleted0
72Cclose all;   use baseball index team,player;     
73Cjunk1='junk';   junk2='more junk';   string1                string2='another string';   num1
74Cset defa to;   copy file demo.prg to junk.pr unk.prg;   wait;   RENAME JUNK.PRGTO NEWJUNK.0
75Cclose all;   use baseball;   copy to junk;    goto 10;    ? player,team;   REPLACE TEAM W0
76Cclose all;   use baseball;   REPORT FORM BAS LEAGUE='NL';   wait   
77Crelease all;   string='this is a string'; );             number=123.45;   display memory0
78Crelease all;   string='this is a string'; );             number=123.45;   display memory0
79Cclose all;   SELECT 5;   use baseball;   SEL se sales;      wait;   display status;   wait;0
80Cclear;   dc_expl(5,10,20,70,' this is a box                save screen to oldscreen;   wai0
81Cclear;   dc_expl(5,10,20,70,' this is a box                SAVE SCREEN TO OLDSCREEN;   wai0
82Csave set to junk;   display status;   set de porary;         set cursor off;   set path to0
83CSAVE SET TO JUNK;   display status;   set de porary;         set cursor off;   set path to0
84CSEARCH * DCLIP;   SEARCH BASEBALL ROSE     
85Cclose all;   use baseball index team;   SEEK                 ? team,player,position;   wait 
86CSET DEFA;   SET PATH;   SET CURSOR;   SET CO ait   
87CSET ALTERNATE TO JUNK.ALT;   SET ALTERNATE O rint on;       ? 'This is a test'; ? 'This i0
88CSET BATCH TO demo,demo     
89CSET BELL ON;   set echo off;   set cons off;   clear;       @ 10,10 SAY 'Bell is ON, Enter0
90CSET CENTURY OFF;   set echo off;   set cons ate();         clear;   @ 10,10 SAY 'Century i0
91Coldcolor=setcolor();   SET COLOR TO GR+;   ? yellow';       SET COLOR TO W+*/G; ? 'This i0
92CSET COMMAND TO DW,DIR /W,50,C:;   dw;   wait     
93C                SET CONSOLE ON;   ? 'this sh  the screen';   ? 'this should go tothe scree0
94CSET CURSOR ON;   ? 'The cursor is ON';   wai URSOR OFF;     ? 'The cursor is OFF';   wait;0
95Cclear;   SET DATE GERMAN;   ?date();   SET D N;   ?date();   SET DATE ANSI;   ?date();   SE0
96Cset fixed on;   number=123.4567;   SET DECIM   ? number;     wait;   ;   ;   SET DECIMALS T0
97Cdefault=dc_sett('defa');   SET DEFAULT TO; it;            SET DEFAULT TO C:\; dir;   wa0
98Cclose all;   use baseball;   copy to junk;                dele for position='1B';   SET D0
99Cclear;   c=space(10);   SET DELI ON;   SET D ';             set cons off;   setecho off;0
100CSET DEVICE TO SCREEN;   10,10 say 'This goes reen';         SET DEVICE TO PRINT;  @ 12,100
101CSET ECHO ON     
102Cclear;   e='   ';   SET ESCAPE ON;   set ech et cons off;   @ 10,10 say 'Escapeis ON, Pres0
103Cclear;   A='12345';   B='123';   SET EXACT O = B;   wait;   ;   ;   SET EXACT ON;  ? A = B0
104Cclear;   SET EXCLUSIVE ON;   use baseball; ait;   ;   ;  ;   SET EXCLUSIVE OFF;  use bas0
105Cclear;   close all;   use baseball;   SET FI AGUE='NL';     list team,player,league;   wait0
106Cclear;   SET FIXED ON;   number=123.4567; ls to 5;        ? number;   wait; ;   ;   se0
107Cclear;   f=space(10);   set defa to;   memow prg','@ 10,10 say "This is from junk.prg forma0
108Cclear;                 SET FUNCTION 2 TO ' This is th0
109Cclear;   close all;   use baseball;   list t ;   wait;      SET INDEX TO TEAM; list team,0
110Ca=space(10);   clear;   SET INTE ON;   set e  set cons off;   @ 10,10 say 'Intensity is ON'0
111Cobj demo1;   SET KEY -1 TO CALC;   wait 'Pre now...';        SET KEY -1 TO   
112Cclear;   set printer to junk.prn;   set prin T MARGIN TO 10;   ? 'The margin isnow 10';0
113Ca=1;  clear;   SET MESS TO 15 CENTER;   set   set cons off;   @ 10,1 prom 'Menu 1' mess 'D0
114Cclear;   close all;   use baseball index tea                list team,player,league;   wait0
115Cclear;   close all;   SET PATH TO;   cd \; all;   wait;   SET PATH TO \DCLIP25;  use bas0
116Cclear;   set printer to junk.prn;   SET PRIN 'This goes to the printer';   SET PRINT OFF;0
117Cclear;   SET PRINTER TO JUNK.PRN;   set prin 'This goes to the printer';   set print off;0
118Cclear;   SET PROCEDURE TO MEMO,MEMOWRIT('MEM MOEDIT(MEMOREAD('MEMOS.TXT'),3,0,15,79));   ?0
119CSET PROMPT OFF;   wait;   SET PROMPT ON;   w     
120Cclear;   sele dctutor;   set order to 2;   s se dchelp;     SET RELATION TO COMMAND INTO DC0
121Ca=' ';   clear;   SET SCORE ON;   set cons o echo off;      @ 10,10 say 'Scoreboard is ON,0
122Cclear;   close all;   use baseball index pla  SOFTSEEK OFF;   seek 'ABC';   ? player,team,p0
123C      
124Cclear;   close all;   use baseball;   set in m;             list team,player;wait;   SET0
125Ca=1;   clear;   SET WRAP ON;   set echo off; s off;         @ 10,1 prom 'Menu 1';  @ 11,10
126Cclear;   close all;   use baseball;   SORT O UE TO JUNK;     use junk;   list team,player,p0
127Cclear;   close all;   use baseball;   ? recn layer;   SKIP;  ? recno(),team,player;   SKIP5
128Cclear;   STORE 'abcde ' TO a,b,c,d,e;   STOR 1,n2,n3,n4;     ? a,b,c,d,e,n1,n2,n3,n4;   wai0
129Cclear;   close all;   use baseball;   SUM OR RES_VALUE TO PRICE,VALUE FOR LEAGUE='AL';   ?0
130Cclear;   close all;   use baseball index tea                TOTAL ON TEAM FIELDPRES_VALUE0
131Cclear;   TYPE READ.ME;   wait     
132Cclear;   close all;   use baseball;   copy t set excl off;   use junk;   repl team with 'AS0
133Cclear;   close all;   USE SALES;   browse;                USE BASEBALL INDEX TEAM,PLAYER0
134Cclear;   close all;   use baseball;   copy t UTILITIES;     UTILITIES C   
135Cclear;   close all;   use baseball;   VIEW     
136CWAIT;  WAIT 'Press a key to go back to the t     
137Cclear;   close all;   use baseball;   copy t use junk;       list team,player; ZAP;   lis0
138Fstring='this is a string';   number=123.456; te();          logical=.t.;   box=dc_expl(5,100
139Z      
140Z      
141Fclear;   close all;   set exclusive off;   u l;             copy to junk;   usejunk;   ? r0
142Fclear;   close all;   use baseball;   copy t                 set exclusive off; use junk;0
143Fset defa to;   clear;   close all;   use bas DC_BROWSE();   wait;   DC_BROWSE(.T.,'','TEAM'0
144Fclear;   curpath=dc_curpath();   DC_CHDIR('. ;   wait;       DC_CHDIR(curpath); dir;   wa0
145Fclear;   ? DC_CHRSEL();   wait;   ? DC_CHRSE wait   
146Fclear;   DC_CLRARR(.t.);   wait     
147F? DC_CLRSEL();   wait;   ? DC_CLRSEL(2);   w     
148Fclear;   COLOR_MON=.T.;   ? DC_COLOR('W+/R') red';          COLOR_MON=.F.;   ? DC_COLOR('W+0
149F? DC_CONMEM();    obj rele all;    ? DC_CONM ait   
150Fclear;    close all;    DC_CREATE('JUNK'); ;              display structure;  wait 
151Fclear;    ? DC_CURPATH();    ? DC_CURPATH('C ait   
152Fclear;     close all;    use baseball;                DC_DBCH(5,15,20,65,'Press enter0
153Fclear;    use baseball;    index on upper(pl layer;         DC_DBCH(5,15,20,65,'','  Player0
154Fclear;     use baseball;    index on league     seek 'NL'; DC_DBCH(5,15,20,65,'Press enter0
155Fclear;    close all;    ? DC_DBFILE('','BASE ? alias();     wait;    ? DC_DBFILE('','JUNKFI0
156Fclose all;   use baseball;   ? DC_DBINDEX(''                ? DC_DBINDEX('','JUNKFILE','LEA0
157Fclear;     close all;     use baseball;    s   use sales;   ? DC_DBSEL('JUNK'); wait;0
158Fclear;    close all;     use baseball;    ? );   clear;     ? DC_DBSTRU(10,20,.t.) 
159Fclear;     close all;     use baseball; (10,16);        wait   
160Fclear;    close all;     use baseball;    de ds[fcount()];  afields(fields); DC_DISPARR0
161Fclear;    store 'testing' to a,b,c,d,e,f,g; ;              date=date();     time=time();0
162Fclear;    key_char='';    key_num=0;    @ 10 ress a key';   DC_DISPTM(12,10,'key_num','key_0
163Fobj release all;    rename demo.obj to demo. DO('DEMO');    rename demo.old to demo.obj;0
164FDC_DOT()     
165Fclear;    close all;     use baseball;    co ;     use junk; DC_EDIT();    clear;   wait; 
166Fclear; set console off; scrn=DC_EXPLODE(5,10 ','GR+',.F.,'this is the title',30);wait; DC_0
167Fclear;    close all;    use baseball;    sel  sales;        set rela to year intobaseball;0
168Fclear;   close all;    use baseball;    copy   set excl off; use junk;    replaceleague wi0
169Fclear;    string='abcdefgh';   string=DC_GET g');   wait   
170FDC_HELP('ACHOICE');    wait;   DC_HELP(); COPY');    wait   
171Fclear;    set console off;                scrn=dc_explode(5,10,15,60,'GR+0
172FDC_INIT()     
173Fclear;   use dckey;    copy to junk;   use j o 2;           repl fkey_cont with'DEMO';   r0
174Fclear;   close all;   use baseball;   copy t use junk;   goto 6;   ? reccount();   DC_INSE0
175Freadme=memoread('read.me');    DC_MEMO('READ 0,70,.T.,.T.,.T.,'D','','N/W','W+/RB',.T.,.F.,0
176Fclose all;   use dctutor;   copy to junk whi <20;  use junk; DC_MEMOIMP()   
177Fclear;   close all;   set exclusive off;                DC_NETUSE('BASEBALL',.t.,5);0
178Fclear;   close all;   use baseball;   copy t use junk;       DC_MODSTRU();   dispstru 
179Fclear;   set printer to junk.txt;                DC_MPRINT("MEMOREAD('DEMO.PRG')0
180Fclear;   close all;   use dctutor;   copy to e recno()<20;   use junk;    go 10;  replace0
181Fclear;   close all;   use baseball;                REPORT FORM BASEBALL WHILE DC_P0
182Fclear;   wait 'Take your printer off-line... PRTEST();      wait 'Put your printer back on0
183Fclear;   set echo off;    set console off; ,10,20,70,"  Let's print this windowonly  "); 
184Fcondition='.t.';    clear;   close all;   us ;              condition=DC_QUERY(condition);0
185Fclear;   close all;   set exclusive off;   u l;             repl player with player;   ? DC0
186Fclear;  close all;  DC_SEARCH('BASEBALL','RO                DC_SEARCH('*','DCLIP','SEARCH.T0
187FDC_SETINIT()     
188Fclear;  set cursor off;   ? DC_SETREAD('CURS cursor on;     ? DC_SETREAD('CURS');  set dev0
189Fclear;   dc_setsave('main');   set cursor of evice to print;   set date italian;  ? dc_set0
190Fclear;   DC_SETSAVE('MAIN');   set cursor of evice to print;   set date italian;  ? dc_set0
191Fclear; / clear;?'hello world';a=1;DC_SETSTEP hile a<10;@ a+3,10 say 'this is line'+str(a);0
192Fclear;  set cursor off;   ? DC_SETT('CURS'); sor on;        ? DC_SETT('CURS'); ? DC_SETT(0
193Fclear;   DC_SETWRIT('CURS',.T.);   set curso                DC_SETWRIT('DATE','FRENCH');0
194F? DC_TSTFILE('DEMO.PRG',.f.,.t.);   wait;                ? DC_TSTFILE('XXX.XX',.t.,.t.);0
195Fclear;   close all;   DC_UTIL();   wait;   D );   wait;     use baseball;   DC_UTIL('D') 
196Farray=array(5);   afill(array,'JUNK');   dis  array;        AADD(array,'MORE JUNK');  displ0
197Fnum1=100;  num2=150;  ?num1-num2;  ?ABS(num1 wait   
198Fclear;   close all;  use baseball;  array=ar ());           afields(array);   field = ACHOI0
199Fclear;   close all;   use baseball;   array= nt());         afields(array);   display array0
200Fclear;   close all;   use baseball;   array= nt());         afields(array);    array2=array0
201Fclear;   array=array(10);   afill(array,'jun L(array,1);    display array array;  wait 
202Fclear;   array=array(4,4);                ADIR('DCTUTOR*.*',array[1],arra0
203Fclear;  af=directory('DCTUTOR*.*');                cb = { | af | qout(padr(af[1],13
204Fclear;   close all;   use baseball;    field fcount());     AFIELDS(fields[1],fields[2],fie0
205Fclear;   close all;   use baseball;   BROWSE 0)   
206Fclear;  close all;   use baseball;   AF = AR NT());         afields(af[1],af[2]);   displa0
207Fclear;   BEGINPAINT();   @ 10,10 say 'This i                @ 11,10 say 'example of   ';0
208Fclear;   f = {};   aadd(f,{'name','c',25,0})                aadd(f,{'address','c',50,0});0
209Fclear;   close all;   use baseball;                cb = { || qout(player,team,leag0
210Fclear;   close all;   use  baseball;   DBEDI     
211Fclear;   close all;   use baseball;   array=                afields(array);   ASORT(array);0
212Fclear;   ? CURDIR();   ? CURDIR('D:');    wa     
213Fclear;  cb1={ | a | a * 10 };   ? EVAL( cb1,                ? EVAL( cb1, 40 ); cb2 = { |0
214Fclear;   myarray=array(2,5);             AFI [1],'junk');   AFILL(MYARRAY[2],DATE());   dis0
215Fmyarray=array(10);   afill(myarray,'junk'); RRAY,3);       AINS(MYARRAY,7);   display arra0
216Fclear;   close all;   sele 17;   use basebal 45;            use sales;   ? ALIAS();   ? ALI0
217Fclear;   ? ALLTRIM("     this is a test t   
218Fclear;   ? ASC('A');   ? ASC('a');   wait     
219Fclear;   close all;   use baseball;   fielda (fcount());    afields(fieldarray);  fieldnum0
220Fclear;   myarray=array(4);   afill(myarray,' display array myarray;   ASIZE(myarray,7);   d0
221Fclear;   string='THIS IS A TEST';   ? AT('IS    ? AT('TEST',string);   wait   
222Fclear;   ? BIN2I(chr(0));   ? BIN2I(chr(0)+c                ? BIN2I(chr(1)+chr(1));   ? BIN2
223Fclear;   ? BIN2L(chr(0));   ? BIN2L(chr(0)+c ? BIN2L(chr(0)+chr(0)+chr(1));   ?BIN2L(chr(10
224Fclear;   ? BIN2W(chr(0));   ? BIN2W(chr(0)+c ? BIN2W(chr(1)+chr(1));   ? BIN2W(chr(255)+chr0
225Fclear;   close all;   use baseball;   go top );   skip  -1;   ? BOF();   wait   
226Fclear;   ? CDOW(DATE());   ? CDOW(DATE()+1);     
227Fclear;   ? CHR(97)+CHR(98)+CHR(99)+CHR(100)+                ? CHR(176)+CHR(177)+CHR(178);0
228Fclear;   ? CMONTH(DATE());   ? CMONTH(CTOD(' );   wait;   
229Fclear;   ? COL();   ?? COL();   wait     
230Fclear;   datestring = "12/31/90";   ? datest                ? valtype(datestring);   dateva0
231Fclear;   ? DATE();   ? DATE()+1;   wait     
232Fclear;   ? DAY(DATE());   ? DAY(DATE()+1);     
233Fclear;   close all;   use baseball;   ? DBF(     
234Fclear;   close all;   use baseball;   set fi AM='NL';       ? DBFILTER();   wait;  
235Fclear;   close all;   use baseball;   sele 0 les;           set relation to YEAR INTO BASEB0
236Fclear;   close all;   use baseball;   sele 0 les;           set relation to YEAR INTO BASEB0
237Fclear;   close all;   use baseball;   MYARRA CT();          aeval ( myarray, { |a| qout(pad0
238Fclear;   close all;   use baseball;   delete TED();         recall;   ? DELETED();   wait 
239Fclear;   close all;   use baseball;   index (team) to temp;   list player,team,league;   w0
240F      
241Fclear;   myarray=DIRECTORY('*.dbf');   aeval |a|qout(padl(a[1],13),a[2],a[3],a[4],a[5])});0
242Fclear;   close all;   erase junk.dbf;   use   ? DISKSPACE();   copy to junk;use;   ? DI0
243F      
244Fclear;   ? DOW(DATE());   ? DOW(DATE()+1);     
245Fclear;   datevalue=date();   ? datevalue; datevalue);    datestring=DTOC(datevalue);   ?0
246Fclear;   ? DTOS(DATE());   ? DTOS(DATE()+365     
247F? EMPTY('junk');   ? EMPTY('    ');   ? EMPT ? EMPTY(0);    ? EMPTY(DATE());   ? EMPTY(CTOD0
248Fclear;   close all;   use baseball;   go bot ();   skip;    ? EOF();   wait   
249Fclear;   dcliperror=ERRORBLOCK();   ERRORBLO REAK(1) } );   * create an error; ? THIS IS0
250FERRORLEVEL(6);   ? ERRORLEVEL();   wait     
251Fset decimals to 10;   ? EXP(1);   ? EXP(2); P(2));   wait   
252Fclear;   handle=fcreate('junk.txt');   fwrit line 1'+chr(13)+chr(10));   fwrite(handle,'lin0
253Fclear;   close all;   use baseball;   ? FCOU it   
254Fclear;   crlf=CHR(13)+CHR(10);   handle=FCRE txt');   fwrite(handle,'junk line 1'+crlf);0
255Fclear;   close all;   use baseball;   copy t dir junk.dbf;   ? FERASE('JUNK.DBF');   dir ju0
256F      
257Fclear;   close all;   use baseball;   ? FIEL FIELD(2);      ? FIELD(3);   ? FIELD(4);   wai0
258Fset default to;   ? FILE('BASEBALL.DBF'); XXX.XXX');     wait   
259F? FKLABEL(1);   ? FKLABEL(9);   ? FKLABEL(10 ABEL(19);      ? FKLABEL(20);   ? FKLABEL(30);0
260F? FKMAX();   wait     
261Fclear;   close all;   set exclusive off;   u l;             dele for recno()>5; ? FLOCK()0
262Fclear;   close all;   handle=FOPEN('DCTUTOR1                fseek(handle,22);?trim(frea0
263Fclear;   close all;   use baseball index tea 'LAKERS';      ? FOUND();   seek 'DODGERS';0
264Fclear;   close all;   handle=fopen('dctutor1                buffer=SPACE(256); fseek(hand0
265Fclear;   close all;   handle=fopen('baseball                fseek(handle,32,0); ? FREADST0
266Fclear;   close all;   use baseball;   copy t                ? FRENAME('junk.dbf','newfile.d0
267Fclear;   close all;   handle=fopen('dctutor1                FSEEK(handle,22);?freadstr(0
268Fclear;   cr=CHR(13)+CHR(10);   handle=fcreat t');            FWRITE(handle,'junk line 1'+cr0
269Fclear;   ? GETENV('COMSPEC');   ? GETENV('DC                ? GETENV('CLIPPER');  wait 
270Fclear;  softtext='line 1'+chr(141)+chr(10)+' r(141)+chr(10);   ? softtext;   hardtext=HARDC0
271Fclear;   close all;   use baseball;                ? 'Header size is: '+str(HEADE0
272Fclear;   a = 2;   ? IIF(mod(a,2)=0,'a is eve dd');   wait   
273Fclear;   ? INDEXEXT();   wait     
274Fclear;   close all;   use baseball index tea   ? INDEXKEY();   ? INDEXKEY(1);?INDEXKEY(2
275Fclear;   close all;   use baseball index tea   ? INDEXORD();   set order to 2; ? INDEXORD0
276Fclear;   keyboard ' a';   ? INKEY();   * now ey;            ? INKEY(0)   
277Fclear;   ? INT(123.456);   ? INT(3.78911055)     
278Fclear;   ? ISALPHA('A');   ? ISALPHA('z'); ('#ABC');      ? ISALPHA('9');   wait  
279Fclear;   ? ISCOLOR();   wait     
280Fclear;   ? ISDIGIT('8');   ? ISDIGIT('%'); ('A');         ? ISDIGIT('5ABC'); wait 
281Fclear;   ? ISLOWER('a');   ? ISLOWER('A'); ('9');         ? ISLOWER('z123'); wait 
282Fclear;   * take the printer off-line;   wait INTER();       * ready the printer;  wait;0
283Fclear;   ? ISUPPER('A');   ? ISUPPER('a'); ('9');         ? ISUPPER('*');   wait  
284Fclear;   a=I2BIN(4096);   ? str(asc(substr(a r(asc(substr(a,2,1)));   b=I2BIN(4097);   ? st0
285Fclear;   keyboard chr(13)+chr(10);   inkey() KEY();   wait   
286Fclear;   close all;   use baseball;   ? LAST ele 0;         use sales;   ? LASTREC();   wai0
287Fclear;   ? LEFT('this is a test',7);   ? LEF ,2);   wait;   
288Fclear;   ? LEN('this is a test');   ? LEN("" ay=array(4,10);   ? LEN(myarray); ? LEN(myar0
289Fclear;   ? LOG(10);   ? LOG(10 * 2);   ? EXP   ? LOG(2.718);   wait   
290Fclear;   ? LOWER('THIS IS A TEST');   ? LOWE CDEF');   wait   
291Fclear;   test = '    this is a test    '; ? len(test);   ? LTRIM ( test );?len(LTRIM0
292Fclear;   close all;   use baseball;   ? LUPD                repl year with 81; ? LUPDATE(0
293Fclear;   ? MAX ( DATE() , CTOD('12/31/90') )                ? MAX ( DATE() , DATE()+1 );0
294Fclear;   ? MAXCOL();   wait;   setmode(25,40 COL();   wait;   setmode(25,80);clear 
295Fclear;   @ 10,1 say 'the screen is '+str(MAX ows long';   wait;   setmode(50,80);  @ 11,10
296Fset echo off;   set cons off;   clear;   mem 1'+chr(13)+chr(10)+'line 2'+chr(13)+chr(10);0
297Fclear;   cr = CHR(13)+CHR(10);   text = 'lin ine 2'+cr+'line 3'+cr+'line 4'+cr; ? text;0
298Fclear;   readme = MEMOREAD ( 'READ.ME' );   wait   
299Fclear;   ? MEMORY(0);   ? MEMORY(1);   ? MEM wait   
300Fclear;   crlf = CHR(13)+CHR(10);   text = 'l f+'line 2'+crlf+'line 3'+crlf+'line 4'+crlf;0
301Fclear;   crlf = CHR(13) + CHR(10);   text = rlf+'line 2'+crlf+'line 3'+crlf+'line 4'+crlf;0
302Fclear;   ? MIN ( DATE(), DATE()+1 );   ? MIN  CTOD('12/31/90') );   ? MIN ( 123, 124 );   w0
303Fclear;   cr = CHR(13)+CHR(10);                text = 'line 1'+cr+'line 2'+cr+0
304Fclear;   crlf = CHR(13)+CHR(10);   text = 'l f+'line 2'+crlf+'line 3'+crlf+'line 4'+crlf;0
305Fclear;   ? MOD ( 4, 3 );   ? MOD ( 4, 4 ); , 2 );         ? MOD ( 7, 3 );   wait  
306Fclear;   ? MONTH ( DATE() );   ? MONTH ( DAT ;   wait   
307Fclear;   close all;   set exclusive off;   u l;   ? NETERR();   set exclusive on;  wait 
308Fclear;   ? NETNAME();   wait     
309Fclear;   keyboard chr(13)+chr(13);   ? NEXTK it   
310Fclear;   ? OS();   wait     
311Fclear;   ? PADC ( 'this is a test', 30, '*' C ( DATE(), 25, '#' );   ? PADL ( 'abcd', 10,0
312Fclear;   ? PCOL();   set printer to junk;  to print;     @ 10,10 say 'testing';   ? PCOL0
313Fclear;   /proc testing; parameters a,b,c,d,e ();  return;   testing ( 0, 0, 0 );  testing0
314Fclear;   ? PROCLINE(0);   ? PROCLINE(1);   ? 2);   wait   
315Fclear;   ? PROCNAME(0);   ? PROCNAME(1);   ? 2);   wait   
316Fclear;   ? PROW();   set printer to junk;  to print;     @ 22,12 say 'testing';   ? PROW0
317Fclear;   QOUT ( ' testing', DATE(), 5*4 ); more testing' );   close all;   use baseball; 
318Fclear;   ? RAT ( 'ab', 'abcabcabc' );   wait     
319Fclear;   set cons off;   READEXIT(.T.);   te (5);   @ 10,10 say 'READEXIT() is ON(.t.)  -0
320Fclear;   READINSERT(.t.);   set cons off;  is a test     ';   @ 11,2 SAY 'READINSERT() i0
321Fclear;   set cons off;   readkey=space(10); say 'press any exit key' get readkey;   read;0
322FGetList = {};   use baseball;   set cons off    @ 10,10 SAY 'Player name ' GET player;   @11
323Fclear;   close all;   use baseball;   ? RECC append blank;   ? RECCOUNT();   delete;   pack0
324Fclear;   close all;   use baseball;   ? RECN p 5;            ? RECNO();   skip 2;  ? RECNO0
325Fclear;   close all;   use baseball;   ? RECS se sales;      ? RECSIZE();   wait   
326Fclear;   ? REPL ( 'abc', 5 );   ? REPL ( CHR );             characters=30;   ? REPL ( '=',0
327Fclear;   set cons off;   screen=savescreen() l(10,10,15,25,' My Box ');   box=savescreen(9,8
328Fclear;   ? RIGHT ( 'ABCDEF' , 3 );   ? RIGHT s a test', 4 );   ? RIGHT ( 'abcdefgh' , 1 );0
329Fclear;   close all;   set exclusive off;   u l;             append blank;   unlock;   repl0
330Fclear;   ? ROUND ( 10.4, 0 );   ? ROUND ( 10                ? ROUND ( 10.5, 1 );  ? ROUND0
331Fclear;   ? ROW();   wait     
332Fclear;   test = 'this is a test            '                moretest = 'more testing';   ?0
333Fclear;   set cons off;   screen=SAVESCREEN() l(10,10,15,25,' My Box ');   box=SAVESCREEN(9,8
334Fclear;   ? REPL ( " abcdefghijklmnopqrstuvwx );   set cons off;   @ 6,9 to 16,36;  SCROLL(7
335Fclear;   start_time=SECONDS();   DC_EXPLODE( 0,'','','',.f.,150);   INKEY(3);end_time=SE0
336Fclear;   close all;   sele 35;   use basebal 99;   use sales;   ? SELECT('BASEBALL');   ? S0
337F_set_date = 4;   french='dd/mm/yy';   clear; date format;   saveformat = SET ( _set_date );0
338Fclear;   ? SETCOLOR();   SETCOLOR ( 'W' ); is white on black';       SETCOLOR('W/R' );0
339Fclear;   ? SETCURSOR();   SETCURSOR ( 0 ); ETCURSOR ( 2 );   wait;   SETCURSOR ( 3 );   w0
340Fclear;   alt_t_key=276;                SETKEY ( alt_t_key,{|| QOUT(T0
341Fclear;   QQOUT ( SETPOS ( 10, 10 ), 'writing  );            QQOUT ( SETPOS ( 5,50 ), 'writ0
342F      
343Fset decimals to 10;   clear;   ? SQRT ( 2 ); ( 3 * 3 );     set decimals to 2; ? SQRT ( 10
344Fclear;   ? STR ( 2.3367 );   ? STR ( 2.3367,                 ? STR ( 2.3367, 5,3);   wait 
345Fclear;   ? STRTRAN ( 'this is a test' , 's',                ? STRTRAN ( 'abcdefghi', 'def',0
346Fclear;   * insert;   ? STUFF ( 'ABCDEF', 2, ;   * replace;   ? STUFF ( 'ABCDEF',2, 3, 'xy0
347Fclear;   name = 'DONNAY Software Designs'; ( name, 1, 6 );   ? SUBSTR ( name,8);   ? SU0
348Fclear;   ? TIME();   wait     
349Fclear;   TONE ( 100, 4 );   wait;   TONE ( 1    wait;       TONE ( 2000, 1 );wait;   QOU0
350Fclear;   ? TRANSFORM ( 123456, '$999,999.99'                ? TRANSFORM ( DATE(),'99/99/990
351Fclear;   string = 'abcdef';   ? TYPE ( 'stri                ? TYPE ( 'DATE()' );  myarray0
352Fclear;   getvar=' change the contents of thi    set cons off;   @ 10,10 get getvar;   read;0
353Fclear;   test = 'this is a test';   ? test; ( test );      wait   
354Fclear;   close all;   ? USED();   use baseba ED();   wait   
355Fclear;   ? VAL ( '123' );   ? VAL ( '123.45' L ( 'abc' );   ? VAL ( '123abc' ); ? VAL ( '0
356Fclear;   ? VALTYPE ( 234.56 );   ? VALTYPE (                ? VALTYPE ( 9 > 8 );  myarray=0
357Fclear;   ? VERSION();   wait     
358F      
359Fclear;   ? YEAR ( DATE() );   ? YEAR ( DATE(    wait   
360Cclear;   MYARRAY1 = {};   disp array myarray AY2 = { 10, 22, "TEST", DATE() }; disp array0
361Cclear;   MYCODEBLOCK = { | a,b | a * b }; ycodeblock, 6, 7 );   wait